home *** CD-ROM | disk | FTP | other *** search
/ Exploring Aeronautics / NASA Exploring Aeronautics.iso / pc / source / visitor.dxr / Internal_1_main.ls < prev    next >
Encoding:
Text File  |  1998-06-02  |  958 b   |  31 lines
  1. global gMain, gButtonManager, gTimeManager, gModule4, gTimeText, gTimeLine, gGlossary, gCurrentResource, gScrollingText
  2.  
  3. on startMovie
  4.   initMain()
  5.   mClearButtons(gButtonManager)
  6.   mAddButton(gButtonManager, 35, "nasaButton", "mGoToMovie(gMain, #main)")
  7.   mAddButton(gButtonManager, 36, "page1Button", "mGoToPage(gModule4, 1)")
  8.   mAddButton(gButtonManager, 37, "page2Button", "mGoToPage(gModule4, 2)")
  9.   mAddButton(gButtonManager, 38, "page3Button", "mGoToPage(gModule4, 3)")
  10. end
  11.  
  12. on unLoadResource aCastList
  13.   repeat with aCast in aCastList
  14.     unloadMember(member 1 of castLib aCast, member "lastMember" of castLib aCast)
  15.   end repeat
  16. end
  17.  
  18. on stopMovieScript
  19.   if objectp(gTimeText) then
  20.     mInitEvents(gTimeText)
  21.   end if
  22.   mdispose(gModule4)
  23. end
  24.  
  25. on util
  26.   repeat with i = 1 to 110
  27.     set newMember to (i * 10) - 7
  28.     set the media of member ((i * 10) - 5) of castLib "words" to the media of member ((i * 10) - 7) of castLib "words"
  29.   end repeat
  30. end
  31.